<script>on newgameglobal tori,syori,flag,jank,s,eveset the hilite of cd btn "newgame" to falsedisable menuitem 1 of menu "ﾃ渦ﾃ [ﾃ嘉"put cd fld "origin" into cd fld "yama"syokyoput "ﾃlﾃ`ﾃb ﾃ uﾃ渦ﾃ [ﾃ嘉ﾃ､Jﾃｩnﾃ竕暗 [ﾃ竏妥 v"set icon of cd btn "mac" to 1007put 52 into nrepeat 10put random(n) into ransuput line ransu of cd fld "yama" into toridelete line ransu of cd fld "yama"set hilite of cd btn cad to trueif s is 1 then play "syaki" b4xif n mod 2 = 1 thenput tori & return after cd fld "yourhand"elseput tori & return after cd fld "machand"put "ﾃ⑨" & return after cd fld "macblind"end ifset hilite of cd btn cad to falsewait 10subtract 1 from nput empty into toriend repeathide msgput random(n) into ransulock screenput line ransu of cd fld "yama" into cd fld "ba1"put line ransu of cd fld "yama" into cd fld "ba2"delete line ransu of cd fld "yama"sort cd fld "yourhand"show cd pictput 1 into evesuteshow cd btn eunlock screenif s is 1 then play "pon" b4xput return & "BAKU" after cd fld "yama"set icon of cd btn "mac" to 1006msentakuif jank is empty then jankenif syori is 1 thenmachanteiyouhanteiput 2 into flagsend sutehuda to this cdelseyouhanteimachanteiput "ﾃlﾃ`ﾃb ﾃ uﾃ鵜ﾃ円ﾃﾃεｮ窶佚ﾃｦﾃﾃ甘 v"set icon of cd btn "!" to 2end ifend newgameon youhanteiglobal youhan,yougn,winrepeat with n = 1 to 100put n + 4 into oif o > number of lines of cd fld "yourhand" then exit repeatif line n of cd fld "yourhand" is line o of cd fld "yourhand" thenput 1 into youhanexit repeatend ifend repeatif youhan is 1 thensogohanteiif win is 1 thenput empty into winexit youhanteiend ifend ifyougnhanend youhanteion yougnhanglobal yougn,ygnmarkput empty into ygnmarkrepeat with n = 1 to 100put n + 3 into pif p > number of lines of cd fld "yourhand" then exit repeatif line n of cd fld "yourhand" is line p of cd fld "yourhand" thenif yougn is empty then put 1 into yougnput first char of line n of cd fld "yourhand" after ygnmarkput p into nend ifend repeatif ygnmark is not empty thenif yougn is empty then put 1 into yougnexit yougnhanelseput empty into yougnend ifend yougnhanon machanteiglobal machan,gnmark,ponmark,macgn,winput empty into gnmarkput empty into ponmarkrepeat with n = 1 to 100put n + 4 into oif o > number of lines of cd fld "machand" then exit repeatif line n of cd fld "machand" is line o of cd fld "machand" thenput 1 into machanexit repeatend ifend repeatif machan is 1 thensogohanteiif win is 1 thenput empty into winexit machanteiend ifend ifrepeat with n = 1 to 100put n + 3 into oif o > number of lines of cd fld "machand" then exit repeatif line n of cd fld "machand" is line o of cd fld "machand" thenput first char of line n of cd fld "machand" after gnmarkput o into nend ifend repeatrepeat with n = 1 to 100put n + 2 into oif o > number of lines of cd fld "machand" then exit repeatif line n of cd fld "machand" is line o of cd fld "machand" thenput first char of line n of cd fld "machand" after ponmarkput o into nend ifend repeatif gnmark is not empty thenif macgn is empty then put 1 into macgnexit machanteielseput empty into macgnend ifend machanteion sogohanteiglobal youhan,machan,flag,syori,youtoku,mactoku,win,sif youhan = 1 thenput "ﾃlﾃ`ﾃb ﾃ uﾃ鵜ﾃ円ﾃﾃεｨﾃｼﾃﾃｸﾃ⑩ﾃ v"add 1 to cd fld "youtenall"set icon of cd btn "mac" to 1009show cd fld "machand"add 1 to cd fld "youten"set icon of cd btn "mac" to 1006if s is 1 then play flute g3s b3s d4s. g4s. rs. rt. d4s. g4hwait until the sound is "done"elseput "ﾃlﾃ`ﾃb ﾃ uﾃ閲ﾃ丑ﾃﾃεｨﾃｼﾃﾃｸﾃ⑩ﾃ v"add 1 to cd fld "mactenall"set icon of cd btn "mac" to 1010put 1 into syorishow cd fld "machand"add 1 to cd fld "macten"set icon of cd btn "mac" to 1006if s is 1 then play harpsichord g3s. g3s g3s. rx. b3s. g3s b3e d4s. re. g4h.wait until the sound is "done"end ifput cd fld "youtenall" + cd fld "mactenall" into tenallif (tenall is 100) or (tenall is 500) or (tenall is 1000) thenput "ﾃｨjﾃ⑩ﾃ⑩ﾃ①" & tenall & "ﾃ渦ﾃ [ﾃ嘉ﾃｭBﾃｪﾂｨﾃ⑩ﾃ⑩" into cd fld "hantei"show cd fld "hantei"set icon of cd btn "mac" to 1007if s is 1 then play harpsichord g4e g4t g4s. g4q b4e b4t b4s. b4q d5e d5t d5s. d5q g5wwait until the sound is "done"wait until the mouseclickhide cd fld "hantei"set icon of cd btn "mac" to 1006answer "ﾃﾂｱﾃﾂｱﾃ窶ｹﾃ竕暗ﾃεｪﾂｨﾃｪ窶氾ﾃ" & return &"ﾃ①ﾃ①ﾃlﾃ`ﾃbﾃ⑦" & cd fld "mactenall" & "ﾃ①ﾃuﾃrﾃ①" & "ﾃ益ﾃ嘉･ﾃ韻ﾃ嘉妥 [ﾃ⑦" & cd fld "youtenall" & "ﾃ竕暗竏"ﾂｬ& return &"ﾃｪﾂｨﾃｪ窶氾竏ﾃ､ﾂ･ﾃｫzﾃï｣ｿﾃ竏ｫﾃ窶禿ｧﾃ湘ｩ窶愿窶ｹﾃ竕暗嘉 ﾃ [ﾃ嘉｣ﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃﾃ\" & return & "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃjﾃtﾃlﾃ`ﾃｧHﾃｱ["end ifput 3 into flagenable menuitem 1 of menu "ﾃ渦ﾃ [ﾃ嘉"set the hilite of cd btn "newgame" to truewait 120if cd fld "youten" > 3 thenif cd fld "macten" > 3 thenif cd fld "macten" > (cd fld "youten" +1) then macwinelseif cd fld "youten" > (cd fld "macten" +1) then youwinelseif cd fld "youten" = cd fld "macten" thenput "ﾃ映ﾃ嘉姪 [ﾃ厩ﾃ⑩" into cd fld "hantei"show cd fld "hantei"set icon of cd btn "mac" to 1007if s is 1 then play harpsichord g3s. c3s c3s. g3e c3s c3e g3h.wait until the sound is "done"wait until the mouseclickhide cd fld "hantei"set icon of cd btn "mac" to 1006put 1 into winend ifend ifend ifelseif cd fld "youten" is 5 then youwinend ifelseif cd fld "macten" is 5 then macwinend ifend sogohanteion youwinglobal youtoku,jank,win,flag,sput "ﾃ鵜ﾃ円ﾃﾃεｨﾃｼﾃｳﾃｲﾃﾃｦﾃ⑩ﾃｩQﾃﾂ｡ﾃﾎｩﾃ⑩" into cd fld "hantei"show cd fld "hantei"set icon of cd btn "mac" to 1009if s is 1 then play flute g3 g3s g3e. d4e. b3e. rt. d4e. rs. g4h.wait until the sound is "done"add 1 to youtokuwait until the mouseclickhide cd fld "hantei"set icon of cd btn "mac" to 1006put 0 into cd fld "youten"put 0 into cd fld "macten"put empty into janksyokyoput 1 into winput 3 into flagend youwinon macwinglobal mactoku,jank,win,flag,sput "ﾃ閲ﾃ丑ﾃﾃεｨﾃｼﾃｳﾃｲﾃﾃｦﾃ⑩ﾃｩQﾃﾂ｡ﾃﾎｩﾃﾂｩﾃ⑩" into cd fld "hantei"show cd fld "hantei"set icon of cd btn "mac" to 1010if s is 1 then play flute g3 g3s g3e. d4e. b3e. rt. d4e. rs. g4h.wait until the sound is "done"add 1 to mactokuwait until the mouseclickhide cd fld "hantei"set icon of cd btn "mac" to 1006put 0 into cd fld "youten"put 0 into cd fld "macten"put empty into janksyokyoput 1 into winput 3 into flagend macwinon mouseupglobal flag,tori,herasi,demand,baku,s,eveset icon of cd btn "!" to 1013if (flag = 2) or (herasi is not 0) or (demand is not empty) thenput "ﾃlﾃ`ﾃb ﾃ uﾃ雨ﾃ [ﾃ栄ﾃï｣ｿﾃｩﾃεﾆ津ﾆ津ﾃ甘 v"winkexit mouseupend ifif flag = 3 thenhide cd fld "hantei"set icon of cd btn mac to 1006put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ厩ﾃ運ﾃ [ﾃ曳ﾃ閲ﾃ運ﾃ嘉ｬﾃï｣ｿﾃ｢ﾃｼﾃﾂｵﾃﾆ津ﾃ\ﾃ⑩ﾃ v"winkexit mouseupend ifif (the clickH<174 or the clickH>251 or the clickV<84 or the clickV>199) ﾂｬand (the clickH<269 or the clickH>347 or the clickV<142 or the clickV>260)thenput "ﾃlﾃ`ﾃb ﾃ uﾃｩRﾃｩDﾃﾂｩﾃｨﾃ催ｩDﾃï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃﾂｵﾃﾆ津ﾃ\ﾃ v"winkexit mouseupelseif the clickH>174 and the clickH<251 and the clickV>84 and the clickV<199thenif (number of lines of cd fld "yama" is 0) or (cd fld "yama" is return) then shaffulset hilite of cd btn cad to truewait 10set hilite of cd btn cad to falseif s is 1 then play "syaki" b4xput empty into torirepeat while tori is emptyput random(number of lines of cd fld "yama") into ransuput line ransu of cd fld "yama" into toriend repeatdelete line ransu of cd fld "yama"put tori & return after cd fld "yourhand"youbakuelseif number of chars of line 1 of cd fld "ba1" is 1 thenput "ﾃﾂｱﾃﾃ催窶｡ﾃﾃﾃﾂ｡ﾃﾎｩﾃ⑩"if s is 1 then play "syaki" b4xset icon of cd btn "mac" to 1008lock screenif tori contains "baku" then put empty into toriput line 1 of cd fld "ba1" & return after cd fld "yourhand"put last line of cd fld "ba3" into cd fld "ba1"put last line of cd fld "ba3" into cd fld "ba2"put 1 into evesutedelete last line of cd fld "ba3"unlock screenwait 50set icon of cd btn "mac" to 1006elseput "ﾃlﾃ`ﾃb ﾃ uﾃﾂｱﾃﾃ催ﾃ陛ｨﾃ催ｩDﾃﾂｩﾃﾃﾃﾃ陛ｩﾃ甘ﾃ催ﾂｻﾃﾂ｢ﾃﾃ甘 v"winkexit mouseupend ifend ifend ifsort cd fld "yourhand"if "BAKU" is not in tori then put 2 into flagyouhanteiend mouseupon sutehudaglobal flag,sute,msute,linec,yougn,tori,mtori,gnmark,ponmark,mbaku,machan,youhan,syori,ygnmark,win,s,eveif syori is not 1 thenif "BAKU" is not in tori thendelete line linec of cd fld "yourhand"lock screenput line 1 of cd fld "ba1" & return after cd fld "ba3"put sute into cd fld "ba1"put sute into cd fld "ba2"suteunlock screenif s is 1 then play "pon" b4xif number of chars of sute is not 1 thenyoueventif tori contains "BAKU" then exit sutehudaelseyougnhanend ifend ifwait 30if gnmark contains first char of sute thenput "ﾃlﾃ`ﾃb ﾃ uﾃｬﾃｱﾃﾎｩﾃﾃ凝⑩ﾃ⑩ﾃ v"flash 2play harpsichord c3s c4s. c5hset icon of cd btn "mac" to 1007wait 100put 1 into machanset icon of cd btn "mac" to 1006sogohanteiif win is 1 thenput empty into winexit sutehudaend ifend ifif flag is not 3 thenif first char of sute is in ygnmark then yougnhanif yougn is 1 thenput "ﾃfﾃﾃｨﾃﾃｨﾃﾃ妥①ﾃmﾃﾃ｢ﾃﾃ｡ﾃﾃ ﾃﾃｮﾃ⑩"set icon of cd btn "mac" to 1009yougoodput 2 into yougnset icon of cd btn "mac" to 1006end ifend ifend ifelseput empty into syoriend ifif flag is not 3 thenput empty into flagif (first char of sute is in ponmark) and (number of lines of cd fld "machand">3) thenput "ﾃlﾃ`ﾃbﾃ uﾃﾂｪﾃﾃ催窶｡ﾃﾃﾃﾂ｡ﾃﾎｩﾃ⑩ﾃ v"set icon of cd btn "mac" to 1007lock screenput "ﾃ⑨" & return after cd fld "macblind"put line 1 of cd fld "ba1" & return after cd fld "machand"put last line of cd fld "ba3" into cd fld "ba1"put last line of cd fld "ba3" into cd fld "ba2"put 1 into evesutedelete last line of cd fld "ba3"if s is 1 then play "syaki" b4xunlock screenhide msgset icon of cd btn "mac" to 1006msentakumachanteielseput "ﾃlﾃ`ﾃbﾃ uﾃ閲ﾃ丑ﾃﾃεｮ窶佚⑩ﾃ v"if (number of lines of cd fld "yama" is 0) or (cd fld "yama" is return) then shaffulset hilite of cd btn cad to truelock screenset hilite of cd btn cad to falseif s is 1 then play "syaki" b4xput empty into mtorirepeat while mtori is emptyput random(number of lines of cd fld "yama") into ransuput line ransu of cd fld "yama" into mtoriend repeatdelete line ransu of cd fld "yama"put mtori & return after cd fld "machand"put "ﾃ⑨" & return after cd fld "macblind"unlock screenmacbakuif gnmark contains mtori thenput 1 into machansogohanteiif win is 1 thenput empty into winexit sutehudaend ifend ifif flag is 3 then exit sutehudamsentakumachanteiif mbaku is 1 thenmlastsuteput empty into mbakuexit sutehudaend ifend ifif flag is not 3 thenput last line of cd fld "machand" into msutelock screendelete last line of cd fld "machand"delete last line of cd fld "macblind"put line 1 of cd fld "ba1" & return after cd fld "ba3"put msute into cd fld "ba1"put msute into cd fld "ba2"suteunlock screenif s is 1 then play "pon" b4xif number of chars of msute is not 1 thenmaceventelseif ygnmark contains first char of msute thenput "ﾃｬﾃｱﾃﾎｩﾃﾃ凝⑩ﾃ⑩"flash 2play harpsichord c3s c4s. c5hset icon of cd btn "mac" to 1012wait 100put 1 into youhanset icon of cd btn "mac" to 1006sogohanteiif win is 1 thenput empty into winexit sutehudaend ifend ifmachanteimlastsuteend ifend ifend ifend sutehudaon mlastsuteglobal msute,macgn,flagif flag is not 3 thenif macgn is 1 thenput "ﾃlﾃ`ﾃb ﾃ uﾃfﾃﾃｨﾃﾃｨﾃﾃ妥①ﾃmﾃﾃ｢ﾃﾃ｡ﾃﾃ ﾃﾃｮﾃﾃｦﾃﾃ甘⑩ﾃ v"set icon of cd btn "mac" to 1007macgoodput 2 into macgnset icon of cd btn "mac" to 1006end ifset icon of cd btn "!" to 2put "ﾃlﾃ`ﾃb ﾃ uﾃ鵜ﾃ円ﾃﾃεｮ窶佚ﾃｦﾃﾃ甘 v"end ifend mlastsuteon macgoodglobal sif s is 1 then play "goodnight" b4hrepeat 2show cd btn mz1wait 10show cd btn mz2wait 10show cd btn mz3wait 20hide cd btn mz1hide cd btn mz2hide cd btn mz3wait 20end repeatend macgoodon yougoodglobal sif s is 1 then play flute e3e re c3hrepeat 2show cd btn yz1wait 10show cd btn yz2wait 10show cd btn yz3wait 20hide cd btn yz1hide cd btn yz2hide cd btn yz3wait 20end repeatend yougoodon youeventglobal sute,flag,tori,ygnmark,youhan,s,eveif sute contains "+" thenwait 20put "ﾃ嘉｢ﾃ叡ﾃ鵜ﾃ [ﾃ⑩"if s is 1 thenplay harpsichord a3e rt f3q.wait until the sound is "done"end ifset icon of cd btn "mac" to 1012wait 20repeat the last char of suteif (number of lines of cd fld "yama" is 0) or (cd fld "yama" is return) then shaffulset hilite of cd btn cad to trueif s is 1 then play "syaki" b4xwait 10set hilite of cd btn cad to falseput empty into torirepeat while tori is emptyput random(number of lines of cd fld "yama") into ransuput line ransu of cd fld "yama" into toriend repeatdelete line ransu of cd fld "yama"put tori & return after cd fld "yourhand"youbakuend repeatset icon of cd btn "mac" to 1006sort cd fld "yourhand"youhanteiend ifif sute contains "-" thenwait 20if number of lines of cd fld "machand" < the last char of sutethenput "ﾃlﾃ`ﾃb ﾃ uﾃ閲ﾃ丑ﾃ②ﾃﾂｪﾃﾃ津ﾂｻﾃ窶ｦﾃ雨ﾃ [ﾃ栄ﾃｩﾃｹﾃﾂ｡ﾃﾆ津ﾂｻﾃﾂ｢ﾃﾃ甘 v"set icon of cd btn "mac" to 1008wait 60set icon of cd btn "mac" to 1006elseput "ﾃlﾃ`ﾃb ﾃ uﾃ窶 ﾃﾂｧﾃ⑥ﾃ⑥ﾃ⑥ﾃ v"if s is 1 then play "au" b4hrepeat the last char of suteset icon of cd btn "mac" to 1009wait 40put 1 into nrepeat until number of chars of line n of cd fld "machand" is not 1add 1 to nif n = number of lines of cd fld "machand" then exit repeatend repeatset icon of cd btn "mac" to 1011if n is not 1 then subtract 1 from nput line n of cd fld "machand" into msutedelete line n of cd fld "machand"delete line n of cd fld "macblind"lock screenif s is 1 then play "pon" b4xput line 1 of cd fld "ba1" & return after cd fld "ba3"put msute into cd fld "ba1"put msute into cd fld "ba2"put 1 into evesuteunlock screenend repeatmsentakumachanteiend ifend ifif sute contains "ﾃ⑩" thenif number of lines of cd fld "machand" < 1 thenput "ﾃlﾃ`ﾃb ﾃ uﾃ閲ﾃ丑ﾃ②ﾃ ﾃ催ｱﾃ｡ﾃ窶｡ﾃ雨ﾃ [ﾃ栄ﾃｩﾃｹﾃﾂ｡ﾃﾆ津ﾂｻﾃﾂ｢ﾃﾃ甘 v"set icon of cd btn "mac" to 1008wait 60set icon of cd btn "mac" to 1006elseset icon of cd btn "mac" to 1008hide msganswer "ﾃlﾃ`ﾃb ﾃ uﾃﾂｫﾃﾃε厭ﾃ [ﾃ丑ﾃ邃｢ﾃﾅｸﾃﾂｵﾃﾂ｢ﾃﾃε⑨ﾃ v" with "ﾃ ﾃｳ" or "ﾃ ﾃｮ" or "ﾃﾂｱﾃﾃ催 ﾂｻﾃ､O"if it is "ﾃﾂｱﾃﾃ催 ﾂｻﾃ､O" then answer "ﾃlﾃ`ﾃb ﾃ uﾃﾂｫﾃﾃε厭ﾃ [ﾃ丑ﾃ邃｢ﾃﾅｸﾃﾂｵﾃﾂ｢ﾃﾃε⑨ﾃ v" with "ﾃ ﾃｪ" or "ﾃ ﾃｱ"or "ﾃﾂｱﾃﾃ催 ﾂｻﾃ､O"if it is "ﾃﾂｱﾃﾃ催 ﾂｻﾃ､O" then answer "ﾃlﾃ`ﾃb ﾃ uﾃﾂｫﾃﾃε厭ﾃ [ﾃ丑ﾃ邃｢ﾃﾅｸﾃﾂｵﾃﾂ｢ﾃﾃε⑨ﾃ v" with "ﾃ ﾃｳ" or "ﾃ ﾃｮ"or "ﾃﾂｱﾃﾃ催 ﾂｻﾃ､O"if it is "ﾃﾂｱﾃﾃ催 ﾂｻﾃ､O" then answer "ﾃlﾃ`ﾃb ﾃ uﾃﾂｫﾃﾃε厭ﾃ [ﾃ丑ﾃ邃｢ﾃﾅｸﾃﾂｵﾃﾂ｢ﾃﾃε⑨ﾃ v" with "ﾃ ﾃｪ" or "ﾃ ﾃｱ"find it in cd fld "machand"if the result is not empty thenput "ﾃlﾃ`ﾃb ﾃ uﾃ蔚ﾃ嘉ｬﾃ瑛ﾃ嘉ｬﾃ竕暗ﾂｵﾃﾎｩﾃ v"if s is 1 then play boing f#3h.winkelseput "ﾃlﾃ`ﾃb ﾃ uﾃ窶 ﾃﾂｧﾃ⑥ﾃ⑥ﾃ⑥ﾃ v"if s is 1 then play "au" b4hdelete the foundlineset icon of cd btn "mac" to 1009delete last line of cd fld "macblind"put it & return after cd fld "yourhand"if ygnmark contains it thenput "ﾃ嘉｢ﾃ叡ﾃ鵜ﾃ [ﾃ⑩ﾃ⑩"if s is 1 thenplay harpsichord a3e rt f3q.wait until the sound is "done"end ifset icon of cd btn "mac" to 1012wait 100put 1 into youhanset icon of cd btn "mac" to 1006sogohanteielsewait 30set icon of cd btn "mac" to 1006sort cd fld "yourhand"msentakumachanteiyouhanteiend ifend ifend ifend ifend youeventon maceventglobal msute,herasi,demand,mtori,flag,gnmark,win,sif msute contains "+" thenwait 20put "ﾃlﾃ`ﾃb ﾃ uﾃ嘉｢ﾃ叡ﾃ鵜ﾃ [ﾃ⑩ﾃ v"if s is 1 thenplay "lucky" c5#q.wait until the sound is "done"end ifset icon of cd btn "mac" to 1010repeat the last char of msuteif (number of lines of cd fld "yama" is 0) or (cd fld "yama" is return) then shaffulset hilite of cd btn cad to trueif s is 1 then play "syaki" b4xlock screenset hilite of cd btn cad to falseput empty into mtorirepeat while mtori is emptyput random(number of lines of cd fld "yama") into ransuput line ransu of cd fld "yama" into mtoriend repeatdelete line ransu of cd fld "yama"put mtori & return after cd fld "machand"put "ﾃ⑨" & return after cd fld "macblind"unlock screenmacbakuif mtori contains "BAKU" then exit repeatif gnmark contains mtori thenput 1 into machanif win is 1 thenput empty into winexit maceventend ifexit repeatend ifend repeathide msgset icon of cd btn "mac" to 1006if flag is 3 then exit maceventmsentakumachanteimlastsuteend ifif msute contains "-" thenwait 40put the last char of msute into herasiif number of lines of cd fld "yourhand" < herasi thenput "ﾃlﾃ`ﾃb ﾃ uﾃ鵜ﾃ円ﾃ②ﾃﾂｱﾃﾃ津ﾂｻﾃ窶ｦﾃ雨ﾃ [ﾃ栄ﾃｩﾃｹﾃﾂ｡ﾃﾆ津ﾂｻﾃﾂ｢ﾃﾃ\ﾃ v"winkput 0 into herasimlastsuteelseput "ﾃ窶 ﾃﾂｧﾃ⑥ﾃ⑥ﾃ⑥"if s is 1 then play boing f#3h.wait 40put "ﾃlﾃ`ﾃb ﾃ u" & herasi & "ﾃｱﾃ｡ﾃｩﾃεﾆ津ﾆ津ﾃ\ﾃ v"set icon of cd btn "mac" to 1007wait 40end ifend ifif msute contains "ﾃ⑩" thenwait 40if number of lines of cd fld "yourhand" < 1 thenput "ﾃlﾃ`ﾃb ﾃ uﾃ鵜ﾃ円ﾃ②ﾃ ﾃ催ｱﾃ｡ﾃ窶｡ﾃ雨ﾃ [ﾃ栄ﾃｩﾃｹﾃﾂ｡ﾃﾆ津ﾂｻﾃﾂ｢ﾃﾃ\ﾃ v"winkmlastsuteelseif number of chars of first line of cd fld "machand" is 1 thenput first char of first line of cd fld "machand" into demandelseput "ﾃ ﾃｳ" into demandend ifput "ﾃlﾃ`ﾃb ﾃ u" & demand & "ﾃﾃε厭ﾃ [ﾃ丑ﾃﾃｸﾃﾃづﾂｧﾃﾃｦﾃﾂ｢ﾃ⑨ﾃ v"set icon of cd btn "mac" to 1007wait 60find demand in cd fld "yourhand"if the result is not empty thenput "ﾃ蔚ﾃ嘉ｬﾃ瑛ﾃ嘉ｬﾃ竕暗ﾂｵﾃﾎｩ"wait 60put "ﾃlﾃ`ﾃb ﾃ uﾃ窶 ﾃﾂｧﾃ⑥ﾃ⑥ﾃ⑥ﾃ v"if s is 1 then play "au" b4hset icon of cd btn "mac" to 1009wait 60put empty into demandset icon of cd btn "mac" to 1006mlastsuteend ifend ifend ifend maceventon youbakuglobal tori,sute,s,eveif tori contains "BAKU" thenput "ﾃ窶 ﾃﾂｧﾃ⑥ﾃ⑥ﾃaﾃ`ﾃjﾃtﾃﾃｦﾃ⑥ﾃ⑥"if s is 1 then play boing f#3h.repeat 8set icon of cd btn "mac" to -16403wait 10set icon of cd btn "mac" to -16396wait 10end repeatrepeat number of lines of cd fld "yourhand"if s is 1 then play "pon" b4xif icon of cd btn "mac" is -16396 then set icon of cd btn "mac" to -16403elseset icon of cd btn "mac" to -16396end ifput first line of cd fld "yourhand" into sutelock screendelete first line of cd fld "yourhand"if line 1 of cd fld "ba1" is not empty then put line 1 of cd fld "ba1" & return after cd fld "ba3"put sute into cd fld "ba1"put sute into cd fld "ba2"put 1 into evesuteunlock screenend repeatrepeat 3if (number of lines of cd fld "yama" is 0) or (cd fld "yama" is return) then shaffulset hilite of cd btn cad to trueif s is 1 then play "syaki" b4xwait 10set hilite of cd btn cad to falseput empty into btorirepeat while btori is emptyput random(number of lines of cd fld "yama") into ransuput line ransu of cd fld "yama" into btoriend repeatdelete line ransu of cd fld "yama"put btori & return after cd fld "yourhand"wait 10end repeatwait 30set icon of cd btn "mac" to 1006sort cd fld "yourhand"youhanteisend sutehuda to this cdend ifend youbakuon macbakuglobal mtori,mbaku,s,eveif mtori contains "BAKU" thenput 1 into mbakuput "ﾃlﾃ`ﾃbﾃ uﾃ窶 ﾃﾂｧﾃ⑥ﾃ⑥ﾃaﾃ`ﾃjﾃtﾃﾃｦﾃ⑥ﾃ⑥ﾃ v"if s is 1 then play "au" b4hset icon of cd btn "mac" to 1012wait 80repeat number of lines of cd fld "machand"if s is 1 then play "pon" b4xput first line of cd fld "machand" into msutelock screendelete first line of cd fld "machand"delete first line of cd fld "macblind"if line 1 of cd fld "ba1" is not empty then put line 1 of cd fld "ba1" & return after cd fld "ba3"put msute into cd fld "ba1"put msute into cd fld "ba2"put 1 into evesuteunlock screenend repeatrepeat 3if (number of lines of cd fld "yama" is 0) or (cd fld "yama" is return) then shaffulset hilite of cd btn cad to trueif s is 1 then play "syaki" b4xwait 10set hilite of cd btn cad to falseput empty into btorirepeat while btori is emptyput random(number of lines of cd fld "yama") into ransuput line ransu of cd fld "yama" into btoriend repeatdelete line ransu of cd fld "yama"put btori & return after cd fld "machand"put "ﾃ⑨" & return after cd fld "macblind"wait 10end repeatset icon of cd btn "mac" to 1006end ifend macbakuon msentakusort cd fld "machand" descendingrepeat with n =1 to 100put n +4 into oif o > number of lines of cd fld "machand" then exit repeatif ( line n of cd fld "machand" is line o of cd fld "machand") and (number of chars of line n of cd fld "machand" is 1) thenput 0 before line n of cd fld "machand"put 0 before line (n+1) of cd fld "machand"put 0 before line (n+2) of cd fld "machand"put 0 before line (n+3) of cd fld "machand"put 0 before line (n+4) of cd fld "machand"end ifend repeatrepeat with n = 1 to 100put n + 3 into oif o > number of lines of cd fld "machand" then exit repeatif (line n of cd fld "machand" is line o of cd fld "machand") and (number of chars of line n of cd fld "machand" is 1) and (first char of line n of cd fld "machand" >1) thenput 1 before line n of cd fld "machand"put 1 before line (n+1) of cd fld "machand"put 1 before line (n+2) of cd fld "machand"put 1 before line (n+3) of cd fld "machand"end ifend repeatrepeat with n = 1 to 100put n + 2 into oif o > number of lines of cd fld "machand" then exit repeatif (line n of cd fld "machand" is line o of cd fld "machand") and (first char of line n of cd fld "machand" >2) and (number of chars of line n of cd fld "machand" is 1)thenput 2 before line n of cd fld "machand"put 2 before line (n+1) of cd fld "machand"put 2 before line (n+2) of cd fld "machand"end ifend repeatset icon of cd btn "mac" to 1011repeat with n = 1 to 100put n + 1 into oif o > number of lines of cd fld "machand" then exit repeatif (line n of cd fld "machand" is line o of cd fld "machand") and (first char of line n of cd fld "machand" > 3) and (number of chars of line n of cd fld "machand" is 1)thenput 3 before line n of cd fld "machand"put 3 before line (n+1) of cd fld "machand"end ifend repeatrepeat with n = 1 to 100if (number of chars of line n of cd fld "machand" is 1) and (first char of line n of cd fld "machand" > 4) then put 4 before line n of cd fld "machand"end repeatsort cd fld "machand" ascendingrepeat with n = 1 to 100if number of chars of line n of cd fld "machand" is 2 then delete first char of line n of cd fld "machand"end repeatset icon of cd btn "mac" to 1006end msentakuon shaffulglobal sput cd fld "ba3" into cd fld "yama"put return & return & return & "ﾃ鰻ﾃ嘉嘉叡ﾃ液ﾃ嘉｣" into cd fld "ba3"set textstyle of cd fld "ba3" to boldrepeat 3if s is 1 then play "syaki" b4xshow cd fld "ba3"set icon of cd btn "mac" to 1007wait 30if s is 1 then play "syaki" b4xhide cd fld "ba3"set icon of cd btn "mac" to 1006wait 30end repeatset textstyle of cd fld "ba3" to plainput empty into cd fld "ba3"end shaffulon winkset icon of cd btn "mac" to 1007wait 40set icon of cd btn "mac" to 1006end winkon suteglobal s,eveif cd fld "ba1" is empty thenlock screenset icon of cd btn "e" to 1013hide cd pictunlock screenelseif showpict of this cd is false thenshow cd pictend ifend ifif cd fld "ba1" contains "ﾃ ﾃｳ" then set icon of cd btn "e" to -16404if cd fld "ba1" contains "ﾃ ﾃｮ" then set icon of cd btn "e" to -16401if cd fld "ba1" contains "ﾃ ﾃｪ" then set icon of cd btn "e" to -16400if cd fld "ba1" contains "ﾃ ﾃｱ" then set icon of cd btn "e" to -16402if cd fld "ba1" contains "ﾃj" thenset icon of cd btn "e" to -16410if (s is 1) and (eve is empty) then play "ton"wait until the sound is "done"end ifif cd fld "ba1" contains "-3" thenset icon of cd btn "e" to -16405if (s is 1) and (eve is empty) then play harpsichord c6t. c c c c c c ch ct. c c c c c c cwait until the sound is "done"end ifif cd fld "ba1" contains "-2" thenset icon of cd btn "e" to -16409if (s is 1) and (eve is empty) then play "droplet" c6t e5qwait until the sound is "done"end ifif cd fld "ba1" contains "-1" then set icon of cd btn "e" to -16411if cd fld "ba1" contains "+1" then set icon of cd btn "e" to -16408if cd fld "ba1" contains "+2" then set icon of cd btn "e" to -16407if cd fld "ba1" contains "+3" thenset icon of cd btn "e" to -16406if (s is 1) and (eve is empty) then play flute b3q. c4e. d4h.wait until the sound is "done"end ifif cd fld "ba1" contains "baku" then set icon of cd btn "e" to -16403put empty into eveend suteon jankenglobal jank,syoriput empty into syoriput "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃﾂｫﾃﾂ｡ﾃﾃｸﾃ邃｢ﾃｪﾃ甘ﾂｩﾃ①ﾃ姥ﾃ嘉嘉嘉ｬﾃ臼ﾃ嘉ｬﾃﾃｦﾃﾃ\ﾃ v"wait 100set icon of cd btn "mac" to 1011put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ姥ﾃ嘉嘉嘉ｬﾃ臼ﾃ嘉ｬﾃ⑥ﾃ⑥ﾃ⑥ﾃ⑥ﾃ v"wait 60set icon of cd btn "mac" to 1012answer "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ榎ﾃ嘉ｬﾃ⑩ﾃ v" with "ﾃ碓ﾃ [" or "ﾃ荏ﾃ嘉｡ﾃ鵜" or "ﾃ英ﾃ ["put it into janget random(3)if it is 1 then put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ碓ﾃ [ﾃ⑩ﾃ v"if it is 2 then put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ荏ﾃ嘉｡ﾃ鵜ﾃ⑩ﾃ v"if it is 3 then put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ英ﾃ [ﾃ⑩ﾃ v"if (jan is "ﾃ碓ﾃ [") and (it is 1) then aikoif (jan is "ﾃ碓ﾃ [") and (it is 3) then put 1 into syoriif (jan is "ﾃ荏ﾃ嘉｡ﾃ鵜") and (it is 2) then aikoif (jan is "ﾃ荏ﾃ嘉｡ﾃ鵜") and (it is 1) then put 1 into syoriif (jan is "ﾃ英ﾃ [") and (it is 3) then aikoif (jan is "ﾃ英ﾃ [") and (it is 2) then put 1 into syoriif syori is 1 thenset icon of cd btn "mac" to 1007elseset icon of cd btn "mac" to 1009end ifwait 60put 1 into jankset icon of cd btn "mac" to 1006end jankenon aikoglobal syoriwait 40set icon of cd btn "mac" to 1008put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ窶 ﾃﾂ｢ﾃﾂｱﾃ竕暗⑥ﾃ⑥ﾃ⑥ﾃ⑥ﾃ v"wait 60set icon of cd btn "mac" to 1012answer "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ鰻ﾃ嘉｡ﾃ⑩ﾃ v" with "ﾃ碓ﾃ [" or "ﾃ荏ﾃ嘉｡ﾃ鵜" or "ﾃ英ﾃ ["put it into janget random(3)if it is 1 then put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ碓ﾃ [ﾃ⑩ﾃ v"if it is 2 then put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ荏ﾃ嘉｡ﾃ鵜ﾃ⑩ﾃ v"if it is 3 then put "ﾃlﾃ`ﾃbﾃ①ﾃ uﾃ英ﾃ [ﾃ⑩ﾃ v"if (jan is "ﾃ碓ﾃ [") and (it is 1) then aikoif (jan is "ﾃ碓ﾃ [") and (it is 3) then put 1 into syoriif (jan is "ﾃ荏ﾃ嘉｡ﾃ鵜") and (it is 2) then aikoif (jan is "ﾃ荏ﾃ嘉｡ﾃ鵜") and (it is 1) then put 1 into syoriif (jan is "ﾃ英ﾃ [") and (it is 3) then aikoif (jan is "ﾃ英ﾃ [") and (it is 2) then put 1 into syoriend aiko</script>
